Unit Tipos;
Interface

Const {Constantes para tamanho de listas}
  MaxCli=10;
  MaxVend=10;
  MaxPro=10;
  MaxVendas=10;
Type

{Tipos Para Cliente}


Tcliente=Record{Tipo cliente}
	   CodCli:String[5];{Codigo}
	   NomeCli:String[30];{Nome}
         End;

TListaCli=Record
            C:Array [1..MaxCli] Of Tcliente;{Lista de clientes}
	    Qtd:integer;{Quantidade de clientes na lista de clientes}
	    Pos:Integer;{Posicao do cliente achado em pesquisa}
          End;
{Tipos Para Vendedor}


Tvendedor=Record
            CodVend:String[5];{Codigo}
            NomeVend:String[30];{Nome}
	  End;

TlistaVend=Record
            C:Array [1..MaxVend] Of Tvendedor;{Lista de vendedores}
	    Qtd:integer;{Quantidade de vendedores na lista de vendedores}
	    Pos:Integer;{Posicao do vendedor achado em pesquisa}
          End;
{Tipos Para Produtos}


Tproduto=Record
           CodPro:String[5];   {Codigo do produto}
           DesPro:String[40];  {Descricao do produto}
           PrePro:Real;        {Preco do produto}
           QtdEstoquePro:Integer;{Quantidade de estoque do produto}
         End;

TlistaPro=Record
            C:Array [1..MaxPro] Of Tproduto;{Lista de produtos}
	    Qtd:integer;{Quantidade de produtos na lista de produtos}
	    Pos:Integer;{Posicao do produto achado em pesquisa}
          End;
{Tipos relativos a vendas}


Titem=Record
        CodPro:String[5];{Um item e um produto- aqui representado somente pelo seu codigo}
        QtdItem:Integer; {Quantidade de itens}
      End;

Tvenda=Record
         Itens:Array [1..MaxPro] Of Titem;{Lista de itens}
         Qtd:Integer;{Quantidade de itens na lista de itens}
         Pos:Integer;{Posicao do item achado em pesquisa}
         Vendedor:Tvendedor;{Vendedor que efetuou a venda}
         Cliente:Tcliente;  {Comprador da venda}
         Datavend:String[10]; {Data da venda}
       End;

TlistaVenda=Record
              C:Array [1..MaxVendas] Of Tvenda;{Lista de vendas}
              Qtd:Integer; {Quantidade de vendas inclusas na lista de vendas}
            End;


Implementation

End.